5 POKE53280,.:POKE53281,.
10 PRINT"[147]        [154]DECIMAL <--> HEXIDECIMAL"
20 PRINT"        (D[154])ECIMAL TO HEX"
30 PRINT"        (H[154])EX TO DECIMAL"
40 PRINT"        (Q[154])UIT"
50 GETA$:IFA$=""THEN50
60 IFA$="D"THEN140
70 IFA$="H"THEN210
80 IFA$="Q"THEN60000
90 GOTO50
100 REM * DEC-HEX & HEX-DEC CONVERTERS
110 REM * CREATED BY LOUIS F. SANDER
120 :
130 REM DEC-HEX CONVERTER (0-65535)
140 INPUT "DEC NUMERAL (0-65535)";D
150 REM NEXT LINE DOES THE CONVERSION
160 H$="":D=D/4096:FORJ=1TO4:D%=D:H$=H$+CHR$(48+D%-(D%>9)*7):D=16*(D-D%):NEXT
170 PRINT "          HEX NUMERAL: [153]$";H$
175 PRINT"        [154]PRESS SPACE [154]TO CONTINUE"
176 IFPEEK(203)<>60THEN176
180 RUN
190 :
200 REM HEX-DEC CONVERTER (0000-FFFF)
210 INPUT "    [154]4-DIGIT HEX NUMERAL";H$
220 REM NEXT LINE DOES THE CONVERSION
230 D=0:FORJ=1TO4:D%=ASC(H$):D%=D%-48+(D%>64)*7:H$=MID$(H$,2):D=16*D+D%:NEXT
240 PRINT "        DEC NUMERAL: ";D
250 GOTO175
10000 D=PEEK(186):N$="DEC/HEX CONVERTE":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
60000 D=PEEK(186):IFD<8THEND=8
60001 PRINT"[147][144]LOAD"CHR$(34)"B.TIPS AND TRICK"CHR$(34)","D
60010 PRINT"RUN"
60020 POKE631,13:POKE632,13:POKE198,2:END